00100	C***************** TO CREATE .CRE FILES FROM XGP FONTS *******
00200	C ****** MSFONT ******  LOAD WITH FNTSUB.F4
00300	
00400	C TO RUN 'TVFONT'  --- εI (CNTRL-META I)
00500	C     			XREADFO <CR>
00510	C			X-DISPLAY <CR>  [STOPS DPY - GOES FASTER]
00555	C			εS     [SMOOTHES IT - TAKES MUCH LESS ROOM]
00600	C			αO (CNTR O) = OUTPUT .CRE FILE
00700	C ( β=META  )
00750	C   TYPE 'FOR21  -1' TO THIS PROG TO GO DIRECTLY TO CONV.
00800	
00900		IMPLICIT INTEGER(A-Z)
01000		IB=52000
01100		COMMON IZ(1),INODE(52000)
01200	
01300	C INPUT CRE FILE ----------------------------------------------------
01400		TYPE 20
01500		ACCEPT 21,NM,WR
01600		IF(WR)CALL OLDFL(NM)
01700	20	FORMAT(' TYPE INPUT NAME -- '$)
01800	21	FORMAT(A5,I)
01900		CALL GETFIL(NM)
02000		CALL FASTIN(IZ,1)
02100		TYPE 35,IZ(1)
02200	35	FORMAT(' FILE SIZE=',I5/)
02300		IF(IZ(1).LT.IB)GO TO 23
02400		TYPE 24
02500		IZ(1)=IB
02600	24	FORMAT(' INCREASE BUFFER SIZE'/)
02700	23	CALL GETFIL(NM)
02800		CALL FASTIN(IZ,IZ(1))
02900	
03000	C DISPLAY THE IMAGES OF THE FILM ------------------------------------
03100		IMG0=INODE(1)
03200		IMG=IMG0
03300	100	CALL DPYIMG(IMG)
03400		IMG=CW(IMG)
03500		GO TO 100
03600		END
03700	C CRE LINKS ---------------------------------------------------------
03800		INTEGER FUNCTION SON(I)
03900		COMMON IZ(1),INODE(52000)
04000		SON=MOD(INODE(I+1),262144)
04100		END
04200	
04300		INTEGER FUNCTION CCW(I)
04400		COMMON IZ(1),INODE(52000)
04500		CCW=MOD(INODE(I),262144)
04600		END
04700	
04800		INTEGER FUNCTION CW(I)
04900		COMMON IZ(1),INODE(52000)
05000		CW=INODE(I)/262144
05100		END
05200	
05300		INTEGER FUNCTION ROW(I)
05400		COMMON IZ(1),INODE(52000)
05500		ROW=INODE(I+1)/262144
05600		END
05700	
05800		INTEGER FUNCTION COL(I)
05900		COMMON IZ(1),INODE(52000)
06000		COL=MOD(INODE(I+1),262144)
06100		END
06200	
06300		SUBROUTINE OLDFL(NM)
06400		CALL IFILE(21,NM)
06500		CALL CONV
06600		END